﻿Public Class Socio
    Dim ID_Socio As Integer
    Dim codigo As Integer
    Dim Nombre As String
    Dim Direccion As String
    Dim Documento As String
    Dim Telefono As String
    Dim email As String
    Dim Contacto As String
    Dim ID_Tipo_Socio As Integer

    Public Sub New()

    End Sub

    Public Sub New(ByVal id As Integer, ByVal cod As Integer, ByVal nomb As String, ByVal dir As String, ByVal doc As String, ByVal tel As String, ByVal email As String, ByVal cont As String,
                    ByVal idTsocio As Integer)
        Me.ID_Socio = id
        Me.codigo = cod
        Me.Nombre = nomb
        Me.Direccion = dir
        Me.Documento = doc
        Me.Telefono = tel
        Me.email = email
        Me.Contacto = cont
        Me.ID_Tipo_Socio = idTsocio

    End Sub

    Public Property pID As Integer
        Get
            Return Me.ID_Socio
        End Get
        Set(ByVal value As Integer)
            Me.ID_Socio = value
        End Set
    End Property

    Public Property pCod As Integer
        Get
            Return Me.codigo
        End Get
        Set(ByVal value As Integer)
            Me.codigo = value
        End Set
    End Property

    Public Property pNombre As String
        Get
            Return Me.Nombre
        End Get
        Set(ByVal value As String)
            Me.Nombre = value
        End Set
    End Property

    Public Property pDirec As String
        Get
            Return Me.Direccion
        End Get
        Set(ByVal value As String)
            Me.Direccion = value
        End Set
    End Property

    Public Property pDocu As String
        Get
            Return Me.Documento
        End Get
        Set(ByVal value As String)
            Me.Documento = value
        End Set
    End Property

    Public Property pTelefono As String
        Get
            Return Me.Telefono
        End Get
        Set(ByVal value As String)
            Me.Telefono = value
        End Set
    End Property

    Public Property pEmail As String
        Get
            Return Me.email
        End Get
        Set(ByVal value As String)
            Me.email = value
        End Set
    End Property

    Public Property pContac As String
        Get
            Return Me.Contacto
        End Get
        Set(ByVal value As String)
            Me.Contacto = value
        End Set
    End Property

    Public Property pIdtsocio As Integer
        Get
            Return Me.ID_Tipo_Socio
        End Get
        Set(ByVal value As Integer)
            Me.ID_Tipo_Socio = value
        End Set
    End Property
End Class

